home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / patches / dfstack.sit / DF Stack 1.0 / background_2633.txt < prev    next >
Text File  |  1988-02-26  |  3KB  |  132 lines
  1. -- background: 2633 from stack: in.0
  2. -- bmap block id: 4924
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Main
  6. ----- HyperTalk script -----
  7. on idle
  8.   put the short time into field "time"
  9.   put the short date into field "date"
  10. end idle
  11.  
  12. on mouseUp
  13.   if "button" is in the target then
  14.     put the short name of the target into theCard
  15.     if the target contains field "time" then
  16.       put the short time into field "time" of card theCard
  17.       put the short date into field "date" of card theCard
  18.     end if
  19.     push card
  20.     go to card theCard
  21.   end if
  22. end mouseUp
  23.  
  24.  
  25. -- part 1 (field)
  26. -- low flags: 01
  27. -- high flags: 0000
  28. -- rect: left=229 top=37 right=50 bottom=293
  29. -- title width / last selected line: 0
  30. -- icon id / first selected line: 0 / 0
  31. -- text alignment: 1
  32. -- font id: 3
  33. -- text size: 10
  34. -- style flags: 0
  35. -- line height: 13
  36. -- part name: date
  37.  
  38.  
  39. -- part 2 (field)
  40. -- low flags: 01
  41. -- high flags: 0000
  42. -- rect: left=233 top=22 right=36 bottom=291
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 0 / 0
  45. -- text alignment: 1
  46. -- font id: 3
  47. -- text size: 10
  48. -- style flags: 0
  49. -- line height: 13
  50. -- part name: time
  51.  
  52.  
  53. -- part 19 (button)
  54. -- low flags: 00
  55. -- high flags: 2000
  56. -- rect: left=322 top=25 right=83 bottom=496
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: Tech Support
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   push card
  68.   visual effect dissolve to inverse
  69.   pass mouseUp
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 29 (button)
  75. -- low flags: 00
  76. -- high flags: A000
  77. -- rect: left=230 top=56 right=102 bottom=258
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 13474 / 13474
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Quit
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   visual effect dissolve slowly to black
  89.   go to card "Black"
  90.   doMenu "Quit HyperCard"
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 30 (button)
  96. -- low flags: 00
  97. -- high flags: 2000
  98. -- rect: left=9 top=302 right=331 bottom=39
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 29114 / 29114
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Go Back
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   visual effect iris close
  110.   pop card
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part 31 (button)
  116. -- low flags: 00
  117. -- high flags: A000
  118. -- rect: left=267 top=56 right=102 bottom=300
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 20186 / 20186
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: Find...
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   doMenu Find...
  130. end mouseUp
  131.  
  132.